Yahoo! Internet Life 1995 Winter/Yahoo Internet Life Volume 1 Number 1 (Winter 1995).ISO/mac/MAC/Ads/TOYOTA.DIR/00254_Script_254

Text File | 1995-09-06 | 6KB | 234 lines

on showModel whichModel
  go "lineup"
  puppetSprite 45, 1
  puppetSprite 46, 1
  set the locH of sprite 45 = 250
  set the stretch of sprite 46 = 0
  puppetTransition 05, 2, 2, 1
  set the castNum of sprite 46 = the number of cast (whichModel & ".pict")
  updateStage
  --set the mouseDownScript = "hideModel"
end

on hideModel
  set the mouseDownScript = EMPTY
  if rollover(26) or rollover(27) or rollover(28) then
    nothing
  else
    dontpassevent
  end if
  puppetTransition 06, 2, 2, 1
  set the castNum of sprite 46 = 0
  updateStage
  puppetSprite 46, 0
  go frame "tm"
end



on airplaneRollover
  global gLastRollover
  if rollover(gLastRollover) then exit

  repeat with n = 6 to 13
    if rollover(n) then
      set the castNum of sprite 5 = the number of cast "compass.text" + (n - 6)
      updateStage
      set gLastRollover = n
      exit Repeat
    else
      set the castNum of sprite 5 = 0
      updateStage
    end if
  end repeat


end

on eyesRollover
  if the mouseV > 370 then
    set the locV of sprite 6 = 314
  else if the mouseV < 370 and the mouseV > 250 then
    set the locV of sprite 6 = 312
  else if the mouseV < 250 then
    set the locV of sprite 6 = 310
  end if

  if the mouseH > 380 then
    set the locH of sprite 6 = 312
  else if the mouseH < 380 and the mouseH > 300 then
    set the locH of sprite 6 = 310
  else if the mouseH < 300 then
    set the locH of sprite 6 = 308
  end if

  if the mouseH > 288 and the mouseH < 328 and the mouseV > 307 and the mouseV < 318 then
    set the width of sprite 6 = 60
  else
    set the width of sprite 6 = the width of cast "eyes"
  end if

  updateStage
end

on quitScript
  repeat with n = 1 to 48
    puppetSprite n, 0
  end repeat
  sound stop 1
  sound stop 2
  puppetTransition 0
  updateStage
  go frame "disclaimer"
end

on setScore whichCategory
  global scaleScore
  set theBox = the clickon - 10
  --move Box horizontally
  set origin = the locH of sprite 14
  repeat while the mouseDown
    if the mouseH > origin and the mouseH < (origin + 80) then
      set value = (integer((the mouseH - origin)/20) + 1)
      set the locH of sprite theBox = ((value-1) * 20) + origin
      updateStage
    else if the mouseH < origin then
      set the locH of sprite theBox = origin
      updateStage
    else if the mouseH > origin + 80 then
      set the locH of sprite theBox = origin + 80
      updateStage
    end if
  end repeat
end

on checkScale
  global gScore
  set gScore = 0
  set origin = the locH of sprite 14
  repeat with n = 5 to 13
    set value = ((the locH of sprite n - origin)/20) + 1
    set gScore = gScore + value
  end repeat
  if gScore < 9 then
    set the castNum of sprite 4 = the number of cast "s-4"
  else if gScore > 8 and gScore < 13 then
    set the castNum of sprite 4 = the number of cast "s-3"
  else if gScore > 12 and gScore < 17 then
    set the castNum of sprite 4 = the number of cast "s-2"
  else if gScore > 16 and gScore < 26 then
    set the castNum of sprite 4 = the number of cast "s-1"
  else if gScore > 25 and gScore < 29 then
    set the castNum of sprite 4 = the number of cast "s0"
  else if gScore > 28 and gScore < 32 then
    set the castNum of sprite 4 = the number of cast "s1"
  else if gScore > 31 and gScore < 36 then
    set the castNum of sprite 4 = the number of cast "s2"
  else if gScore > 35 and gScore < 40 then
    set the castNum of sprite 4 = the number of cast "s3"
  else if gScore > 39 then
    set the castNum of sprite 4 = the number of cast "s4"
  end if
  if gScore > 25 and gScore < 29 then
    set the forecolor of sprite 24 = 255
    set the forecolor of sprite 25 = 255
  else if gScore < 26 then
    set the forecolor of sprite 24 = 255
    set the forecolor of sprite 25 = 35
  else if gScore > 28 then
    set the forecolor of sprite 24 = 197
    set the forecolor of sprite 25 = 255
  end if
  updateStage
  --put gScore
end

on mySound whichSoundFile
  global gCurrentSoundFile
  set gCurrentSoundFile = whichSoundFile
  puppetSound 0
  puppetSound whichSoundFile
  --  if the machineType = 256 then
  --    sound playFile 1, the pathname & "sound\" & whichSoundFile
  --  else
  --    sound playFile 1, the pathname & "sound:" & whichSoundFile
  --  end if
  set the timeoutlapsed = 0
end

on sfx whichSoundFile
  if the machineType = 256 then
    sound playFile 2, the pathname & "sfx\" & whichSoundFile
  else
    sound playFile 2, the pathname & "sfx:" & whichSoundFile
  end if
  set the timeoutlapsed = 0
end

on idleBoy
  global gSoundID
  if gsoundID = 0 then
    mySound "idle01.aif"
    set gSoundID = gSoundID + 1
  else if gsoundID = 1 then
    mySound "idle02.aif"
    set gSoundID = gSoundID + 1
  else if gsoundID = 2 then
    mySound "idle03.aif"
    set gSoundID = 0
  end if
  if marker(0) = 14 then
    puppetSprite 6, 1
    set the castNum of sprite 6 = the number of cast "MAN LOOP"
    updateStage
    set the timer = 0
    repeat while the timer < 120
      go the frame
    end repeat
    --puppetSprite 6,0
  end if

end

on rollCheck
  global gPreviousRollover
  if rollover(gPreviousRollover) = FALSE then
    if rollover(5) then
      set gPreviousRollover = 5
      sfx "hammer.aif"
    else if rollover(6) then
      set gPreviousRollover = 6
      sfx "ratchet.aif"
    else if rollover(7) then
      set gPreviousRollover = 7
      sfx "tip01.aif"
    else if rollover(8) then
      set gPreviousRollover = 8
      sfx "chisel.aif"
    else if rollover(9) then
      set gPreviousRollover = 9
      sfx "tip02.aif"
    else if rollover(10) then
      set gPreviousRollover = 10
      sfx "ratchet.aif"
    else if rollover(11) then
      set gPreviousRollover = 11
      sound stop 2
      sfx "handsaw.aif"
    else if rollover(12) then
      set gPreviousRollover = 12
      sfx "tip01.aif"
    end if
  end if

end


on idleCD
  mySound "deal03.aif"
end